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Comme 





annonc 





dent JPC, °LE SFECIAL SICOH E 
membres ont commencé à8 nc 
scription qui aide grandement les finance 


nombre 














tre niv 2 prés de l'e 1 ê. Venez 
mbr er re visite, ceux qui tiennent le st 
se sentiron seuls. 
1° pour tous de conn 





Le Sicob es 


e d'autr 
utiliset t 


ines et éventuellenm 














pouvoir demander une aide en 
programm prètés par HF (table 
tresant risquez de a 





connaître 


En ce qui concerne 
membres qui puissent 





nous cherchons toujours d 

stand, et nous aimerions 
nnaïître ceux qui parlent d'autres langues que le Fransçai 
(fnglais, Allemand...). Ceci nous à été demandé par 
secrétariat du Sicob,qui désire garder le caract 
international de cette manifestation. Que ceux qui 
sentent concerné ainsi que ceux qui peuvent préter 
matériel se fassent connaïtre... 
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Fhilippe (1) 506 25 © 
Fierre (1) 887 68 93 


Merci à tous 


Fhilippe. 5% 
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PFC PARIS SE REUNIT UNE FOIS PAR MOIS 


proc 


tou; 





âh, j'oubliai 


st JPFC est distribué en aevant-premi 
de ces réunions 


-.-. À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (iéh-15h) 
— Le Samedi 3ù Avril 1985 

— Le Samedi 4 Mai 1985 

— Le Samedi ler Juin 1965 





à Hient 





Etes. 


Fierre DAVID 
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Sont en vente au Club: 


Cartes magnétiques pour HP4I au pri OFF de port les 50 cartes 
Cartes magnétiques pour HF7IE au pl ,10FF de port les 10 cartes: 
Eproms (2718 & 2732} vierges au prix de G0FF + 3,10FF de port pië 
programmées, nous consulter; 
- Nodule TINE (821824) au prix de à: + 6,50FF de port, Livré avec manuel en françaiss 
- Module GUADRAM (82170A) au prix de 400FF + 6,90FF de port; 
— Module HPIL (82160A) au prix de 970FF + 6,50FF de port. Livré avec manuel en français; 
- Four les commandes des ZENROM, CC s envoyer 50 minieue d'arrhes; 
- VASX (listing des 3 presières pages de la 41} au prix de 170FF + 13,50FF de port 
- Le eanuel de service de La 41 au prix de S0FF + 6,50FF de port; 
- Le manuel technique du convertisseur au prix dl F + 3,20FF de port: 
s anciens nuséros au prix de 

Aa 3 au prix de 15FF + 3,20FF de port 
No 4 à 10 au prix de 20FF + 3,20FF de por 
No 11 à 17 au prix de 29FF + 6,50FF de port par nus 


à partir du No 18 au prix de 3SFF + 6,S0FF de port par numéro. 








. Pour les Eprons 



























Les ports sont 





en non urgent. 


assurons des x désirent profiter de notre réduction 
écial Club', soit 25% par rapp Wu ix ! ceux qui le désirent 
postal en urgent ou er non urgent. Ces achats concernent aussi bien des sodules que des 
trices et autres. 


NOTA: ces deux rubriques “nous er avons” et “achats groupés”, sont des services *Club* que nous 
rendons exclusivesent aux entres effectivesent inscrits au club et possédant leur carte de 
mesbre PPC-PARIS. 


PRECISIONS... 


Nous avions oublié de donner les coordonnées précises de la personne à contacter pour obtenir 
tion de 53,7 % dont nous avions parlé le mois dernier: 
r Mae Poisson D'Avril, 

56 rue J.J, Rousseau 

73001 PARIS 


y 
la réduc 
Contacte: 


Allez, sans rancune ! et à l'année prochaine... 

















LE COURRIER DES LECTEURS 


de gris en 









eté le 1/10/85, 


1 éc 
0 FF. Etat neuf. 





Nouveau système de test d'homologation X.25 


Les réseaux de commutation par paquets X.25 sont une 
méthode économique d’interconnexion d'ordinateurs sur le 
plan national ou mondial. Le nouveau système d'analyse 
et de test de conformité X.25 181S0JA étend les possibili- 
tés de l’analyseur de protocoles HP 4955 facile d'em- 
ploi, il offre de nouvelles fonctions de mise au point de 
réseaux. 

Système de pointe, le 18150JA effectue le test au niveau 
liaison, de la commutation par paquets et l’émulation au 
niveau liaison. Il utilise la procédure de vérification X.25 
du Bureau National de Métrologie (USA) (d'utilisation 
internationale) pour FS 1041/FIPS100. Que vous dévelop- 
piez un réseau connecté à un tel réseau, la combinaison 
HP 4955A/18150JA vous offre plus de 700 tests, pour iso- 
ler les problèmes de liaison/commutation par paquets et 
vérifier la conformité aux normes CCITT X.25. Le 18150JA 
évite la connexion à un réseau pour la conception (de ter- 
minaux, centraux ou nœuds de réseaux) et réduit ainsi le 
cycle de développement. 

Les tests d'homologation au niveau liaison et de la com- 
mutation par paquets ont été rédigés par M.F. Smith et asso- 
ciés, Bernardsville, New Jersey. Des tests documentés, faci- 
les d'emploi, ont été écrits en Basic pour le HP 4955A. 
L’émulateur permet de se concentrer sur le test de commu- 
tation par paquets au niveau liaison (menu SIMULATE). 
Le nouveau logiciel d'homologation X.25, 18150JA, pour 
l’analyseur de protocole HP 4955A, facilite la mise au point 
de réseaux. Il permet de garantir la conformité aux normes 
définies et de réduire le temps de développement de produits. 
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Unités de disque double face : coûts de stockage réduits 





Les nouvelles unités de stockage de masse Hewlett- 
Packard 3,5 pouces possèdent une capacité mémoire accrue, 
une excellente fiabilité, et leurs données sont compatibles 
avec celles des familles d’ordinateurs personnels, portatifs 
et portables HP. Ces unités conçues spécialement pour le 
nouvel ordinateur HP 150 (appelé ordinateur à écran tac- 
tile) sont équipées de disques ayant chacun une capacité de 
710 K octets après formatage, du fait qu’il est possible de 
lire et écrire sur les deux faces. Le coût de stockage d’un 
octet est ainsi notablement inférieur à celui des unités de 
disque simple face. Vous pouvez, de la sorte, enregistrer 
l'équivalent des informations contenues dans un classeur 
encombrant sur quelques petits disques qui tiennent dans 
une poche de chemise. 


Choisissez le modèle adapté à vos besoins 

L'unité de disque double HP 9122D se compose de deux 
disques souples double face 3,5 pouces ayant chacun une 
capacité de stockage de 719 K octets. Cette unité est par- 
faitement adaptée au traitement de texte, aux applications 
des tableurs et aux applications graphiques. Il existe aussi 
une version mono-disque, le modèle HP 91225. 

La nouvelle unité de disque HP 9133D offre à l’utilisa- 
teur la possibilité de stocker rapidement de gros volumes 
de données. Elle associe un disque souple de 3,5 pouces et 
un disque Winchester possédant une capacité de 14,8 M 
octets après formatage. La vitesse de transfert très élevée 
du disque Winchester est parfaitement adaptée au HP 150. 
L'utilisateur pourra charger toutes ses applications sur un 
seul disque. Le disque souple peut alors être utilisé pour sau- 








Reid} 





vegarder selectivement les fichiers, charger les nouveaux 
logiciels dans le disque Winchester et faciliter l'échange de 
données avec les autres ordinateurs HP. 

L'utilisateur qui possède déjà un HP 150 équipé d’un dis- 
que souple sera intéressé par la nouvelle unité de disque 
HP 9134D, une excellente version autonome de l’unité de 
disque Winchester. 


Compatibilité avec les supports simple face 

Ces nouvelles unités de disque double face lisent et écri- 
vent également des informations sur les disques simple face. 
Il suffit d’une commande très simple pour configurer les 
disques au format simple face ou double face. Dès qu’un 
disque est formaté, l'unité détecte le format que vous dési- 
rez utiliser pour lire et écrire les données. 

Les disques double face sont utilisables sur les unités de 
disque simple face mais, dans ce cas, il est moins coûteux 
d'utiliser des supports simple face. Les unités de disque sim- 
ple face expédiées avant le 1° mars 1983 ne possédant pas 
de dispositif d’arrêt automatique ne peuvent utiliser les dis. 
ques double face. 


Aucune baisse de la fiabilité 

C’est l’excellente qualité du disque souple 3,5 pouces qui 
a permis d’en accroître la capacité sans réduire pour autant 
sa fiabilité. Des caractéristiques telles que l'enveloppe plas- 
tique de protection, l’arrêt automatique et le dispositif exclu- 
sif HP de surveillance de l’usure des disques ont contribué 
à améliorer considérablement la fiabilité du disque 3,5 pou- 
ces par rapport à celle des disques 5,25 pouces. 


HEWLETT 
lp PACKARD 


HEWLETT-PACKARD FRANCE : S.A au ce de 25000000 de Fi " les erticies 118 À 150 de le loi sur les sociétés 
commercieies - RCS Corbeil. 


DIRECTION RÉGIONALE LES ULIS - Avenue des Tropiques - ZI de Courtebœuf - 91947 LES ULIS CEDEX - Tél. (5) 907.78.25 - 
OUEST SUD - OUEST Telex 600048 F 


‘Madame, Monsteur, 


En 1984, et malgré un contexte écor 

de vente de notre gamme 

témoignent de la fidélité et de la confia 
clientèle. 


Cette clientèle à la recherche de produits de haute quai 
particulièrement exigeante sur le plan des pe 

ment de la fiabilité. 

Nous souhaïtions concrétiser commercialement 

d'ailleurs COR par. Les résultats d'ét: 

menées depuis 

1 panne par 


Pour renforcer l'impact ent, VOUS 
la P L V ci-dessous 


caleulatrices 


En association L Ÿ, une campagne 
en oeuvre au nm e des médias 


Cette mesure 
nelles destin 
ailleurs nou 


Convaineu que cette initiative contribuera à donner une nouvelle 
impulsion à la diffusion de notre gamme, 


nous vous souhaîtons plein succès pour cette année 1985. 


Veuillez croire, Madame, Monsieur, en l'expression de nos 
sentiments dévoz 


Philippe CHAÎLLOT Jean-Paul BAFKIER 
Directeur Régional des Directeur Régional des] 
Ventes Ouest Ventes Est 





BUREAUX DE VENTE RÉGION OUEST SUD-OUEST : Alençon (33) 29.04.42 - Brest (98) 03 38.35 - Evry (5) 077.96 60 - Les Ulis (6) 907.78.25 
Mérignac (56) 340084 - Nantes (40) 503222 - Orléans (39) 680163 - Pau (59 803802 - Rennes (99) 51.42.44 - Toulouse (61) 40.11.12 


SIÈGE SOCIAL Parc d'Activité du Bois Briard - 2. Avenue du Lac - 
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040 EVRY CEDEX - Tél. (6) 077.8383 - 





Daniel CONNAN (PPEFE 145) 
152, Avenue Jean Jaurés 
93500 PANTIN 

Le 26 sars 1985 


Je me suis juré de ne pas passer sur grosse 
sechine (HP4I, tant que je ne serais 
pas arrivé à saturer son HFISC avec entre autres, 
ur programme calculant PI en aultiprécision, Mais 
avec ce problèæe, je fais figure de dinosaure: 
cette question ne passionne personne. 


En désespoir de cause, il s'est venu cette idée: 

cosse en football, parallèlement au chaepioi 

il existe la coupe de France, sieultané: 

votre concours, il pourrait ÿ avoir un 

Fl' sur HP série 16, mpensant le 8e: 

prograrse caiculant PI en sultiprécision. 

J'ai à cet effet acheté 

une #édaille représ 

peut-être dé prendre ARCHIMEDE?), 

qu'il faut. Cette sédaille, !'heureux élu lou 

élue?!5 pourrait l'exposer dans sa vitrine au» 
j tout Je sonde ne peut pas être le 


Je joins à cet effet un 
spécial "TROPHEE FI" 
VOUS ÿ voyez des contre-i 


E 
8 


Dans }'attente des réa: 
projet, je vous adress 
salutations, 


suscitées par 


sieur, mes asicale 


Daniel. 


?TROPHEE OPEN PI HPISC' et HP série 10 


I, Un TROPHÉE PI° consistant en une nédaille 
représentant Pythagore est sis en coapétition. 

11, Sera déclaré vainqueur le concurrent obtenant 
sur HPISC le plus grand nosbre de décisales de FI. 
III. Le trophée étant déclaré OPEN, toute 


personne en ayant 
participer. 

IV. Les Oprogramses tournant sur HPIS seront 
publiés dans JF 


naissance pourra ÿ 


Cher Daniel, 


Merci de tout coeur de cette initiative, et je 
souhaite que non seulenent tous les possesseurs 
de HPIS y participent, mais aussi que beaucoup de 
merbres fment exe r toi et nous 
proposent d'autres activités. Nous en auront une 
autre pour l'été 86, Jean-Claude Becker met au 
point un rallye auto (style chasse au trésor). 
Pour une question de teaps, nous n'avons pu le 
faire dénarrer cette année. 


uerre entre foe 


: over, inforsaticiens en herbe, ayez, ovez, 
progresseurs en complet trois pièces. 
êtes en quéte de joutes informatiques, 
prograseation des jeux dits de stratég 
sionne et si vous cherchez autre chose que de 
alors cet aricle vous intéresse; sinon 


Ces quelques jignes ont deux buts: tout d’abord 
vous parler du tournoi de Génésis organisé par 
l'institut industriel Du Nord - IDN - le 15 Mars 
dernier; le second est de donner un grand coup de 
chapeau et ur petit coup de pub a 1’IDN. 


Bénésis est un jeu qui utilise un échiguier 9x9 
et dont les règles sont sisilaires au bier connu 
deu de Ja Vie, Un prochain article vous les 





précisera et vous révélera un de ses 
nes, J'ai Ssuccoabé aux douces pressions 
syspatique 60 - Gouraand Grganisateur 
Bevid ! 


Personnellement, j'ai présenté deux progranses, 
en Basic, différents - ebre stri 
analyses distinctes; l'un sur HF 750, l'autre sur 
HP 7IE - on reste en farille ! À i 

2 acheter un 
catégorie Interprétés regroupait une 
concurrents, des ordinateurs de 

gros à faire p : 

prograsses s'affrontaient en Éssegbleur. 


Farlons un 
sponsorisé 


eurent 


Vencrs-en aux résultats. Le tournoi se déroulait 
en six parties; le gagnant de chaque catégorie 
recevait un MD Set les quatre suivants des jeux 
électroniques, gracieusesent offerts par le 
sponsor, et renies Île soir sése lors du Gala de 
L'IDN, au bre Hotel, Le Basic gagnant était un 
intouchable: sur son Lynx, il survola le tournoi 
et s'est méne offert de fort belle maniere le 
gagnant de la catégorie Assesbleurs. Sachez 
qu'une partie gagnée valait 5 points, nulle 3, et 
perdue !. Ce dieu du Génésis en a gagne cing et a 
fait un nul: 28 points sur 30 ! Le second a eu 24 
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points. 
Votre husbie serviteur était le seul représentant 
de la faille HF, [es initiales bénies entre 
toutes n'evrent pas trop à se plaindre de lui: 
son 71 avec 27 points a fini troisièse du tourn 
et mon 75, avec a terminé à le 
cuatrièae place. 


ion à eille francs, non iaposables bien sûr: 
quelles ont été les sachines les plus rapides - 
en Basic, espèce de tricheur - 7 Allons, je 
vais vous aider: nes fantastiques qui 
ont is à peine nüutes pour tout le 
que d'autres - je ne citerai 
plus du double, Eh oui, 

e plus rapide, 5 à cent sec 


Incro vrai; pour 


à ia siaplicité des 
en particulier lors de la 
ces et des ac 


prix était décerné au geilieur 
et malgré gros effort de ce c 
su 7 ils spensé un Dragon 


vouliez -vo e contre la coul 


donc à 2°IDK pour 
dans l'organisation, 


il y à des 
pour que le jeu choisi pour le tournoi Eé 
l'heale, Avis aux 283 
confiraerai ceci plus tard. 


HP-aicalement vôtre. 


Frédéric BARNAUD - PFC # 164 - 








Cher président, 
Chers mesbres, 


La recherche de valeurs et de vecteurs propres 
est une opération fondamentale en sathésatiqi 
elle permet de calculer sieplerent le puissance 
nièee d'une natrice, d'étudier des s 

équations différ 

n'est pas réduit 

s'étend aussi 

à traiter des aatrices 

nusériques, et de faibles 

ni AOUS sommes des: 

quelque moyen d’autoratiser | 


Des méthodes ont 
croirait adaptées ais certes pas 
langage d'une ài. présentons ici 
prog d E valeurs et les vecte. 
propres d° ice (carrée) de dire 
nisi4), 


pour cela; or | 


dite rice soient toutes di 
R que d'une ébauche (quoique 
vous engageons ardeament à 
de vos suggestions et critiqui 
une ve 


Le prograrse 


les valeurs et vecteurs pro 


Supposons que ces valeurs propres scient toutes 
distinctes; on les note (A,, ..., AA). Soient 
les vecteurs (Vi, ..., Vni associés à ces valeurs 
propres; ils constituent une base de l’espace 
dans lequel! on travaille. 


Tout vecteur de cet espace peut alors se 
décomposer cosne coabinaison linéaire des 


vecteurs propres. Ainsi, V peut s’écrire: 


Va + + an 
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s les valeurs propres de sorte que soit 
grande d'entre elles: 


= au 


lie [auf] = 0 vi 
Fo (KE 


gbtient donc un vec 


se donne un 
pplique à 8; d'o W 


quelconque. On 


vi tené v le vecteur propre 
associé à la plus grande valeur propre de la 
satrice, qui se trouve êtr . 


Méthode de la déflation: 


Ün calcule alors le vecteur propre associé à ni 
par la satrice transposée de À. Le vecteur ÿ{ 
défini par: 


ue = AUYI =0 (Éet Ysignifient transposes de) 





ün caicule alors À! telle que: 
La strecture aéscire est donnée pour la prenière 
phase du progranse iséthode de la puissance 
On applique ensuite la méthode de la puissance itéréei, et dans le cas d’une matrice de 
itérée à Al; d'où: V2 et À... dimension 4: 
TENTION: 





FONCTION 





Le programte ne fonctionne correcteaent que pour REG n CONTENU REE 
es ratrices dont les valeurs propres sont toutes DOUBL 
istinctes, et non singulières. 


ES 





d 
di 





ï 15,018 08 O0 Ligne sat À 

HN peut arriver que le systèss oscille toujours, 31,034 01 Vecteur propre 

sans jamais se stabiliser. 35,038 02 Nvelle approx vect propre 
3i,035004 Ech des 2 ap des vect pr. 

Le cacul peut être fort long: qui plus est les : té 003 Ligne suivante de À 

erreurs consises Sur le calcul des presiers ï 7 7? Peut servir d'ap. pour AND 

vecteurs propres et valeurs û Valeur propre 


plus où Nouvelle approx valeur pr. 





Le prograase ne cosporte pas 
boucle; on prendra donc soir än 
trop de valeurs propres. 


Enfin on aura intérét à le aodifier pour qu'il OO! 
travaille uniquement en disension 3 ou 4, 


ce prograsse requiert 


GBILEL "LANDE" 
67 ,013 

Œ 

© 1e 5 

10 REL 14 
114 

Entrez la aatrice de sanière habituelle, î 12 





2) XEG "LAMDA® 
i) Rentrez une approxisation du ler vecteur 
propre (par ex: (1,1,...,1)) 
ii} la aachine affiche Aiet Vi, 
ii) R/5, rentrez une approxisation du 2ese 
vecteur propre 
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RCE 

570 05 
113 RCL IND 04 
144 STD 19 
115 ABS 


116 ENTER* 
#7 SAVEX 117 156 ü4 


ë8 SAVERY BNLBL 0 
89 1,004 119 Cix 
76 STD ii 120 REL IND 04 
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157 STD 95 
138 GT 0 
1594LBL 11 
180 *LAM=" 
181 AREL 09 
182 BEEP 
163 PROMPT 
164 RL 01 
165 STO 04 
dé 

167 REL 08 
168 FRC 
189 + 
17O4LBL 14 





HE 
IND 64 





217 STÜN 
218ILBL 88 
219 RCL INDA 
226 CHS 


JP 


€ 





n24 page 13 








JP n24 page 14 


341 STD À 
34241 


ôt 

64 
3624LBL 23 
363 REL IND 04 
364 RCL IND 05 
365 1 
Seb ST+ 0 
367 156 04 
368 "* FO) 
369 156 05 
370 676 23 


SOUVENIR SUR HP4I 


Vous avez oublié ce que vous avez assigné sur une 
carte sagnétique d’état pour votre HP4i, 

Pour éviter cela, faites conse soi: settez un 
message explicite, de 24 caractères au aatiaua, 





en aode alphe, Vous pouvez alors faire 
cette sanière, en lisant une carte d 


vous voulez faire un progranne d'échecs sur 
1, ou tout prograase où il ÿ a un programme de 
mode alphè vous rappellera quelque cases, donc de lignes et de colonnes, sachez 
pouvez mettre par exeapie "ET NON AUGKXE 7 ï qu'un lecteur de codes barres vous sisplifie la 
dans les cartes de paye de votre patron, ou le © tôche. En effet, pour indiquer à la HP41 qu'un 
souvenir qui vous plaira, ï pion part d'une case pour arriver sur une autre, 
on à la possibilité d'utiliser des étiquettes 
£ autocollantes sur les cases, qui seront lues au 
Philippe TENAND (PPCF départ et à J'arrivée d'un pion. Mais ces codes 
barres spéciaux, édités par Hewlett-Packard ne 
sont pas des fonctions et ne sont pas 
prograssabl Île servent à donner les 
coordonnées de la case suivant un sode spécial, 
un sous-progranse SÛR appelle le lecteur à lire 
ces étiquettes autocollantes spéciales, dénonées 
"SCN:BE" où est la ligne et "B° la colonne. 
Pour aider l'utilisateur, la fonction WNDSCN 
convertit Je seul vctet de données en codes 
barres du carré balayé en données décimales et 
Vous êtes en train de créer un progreese dan ï stocke les données converties dans la séroire O1. 
votre 4j, et vous dés changer deu #éi jeu ide dases, par exeaple), doté d'un lecteur 
entre elles, par exe optique, pourrait cosporter le prograsae *SGR', 
Qi et Z24 entre eux. Une r à fourni par HF), pour que les données introduites 
celle-cis AH 1524, L u ï dans Le lecteur optique soient converties et que 
court. Mais il rdonnées des positions apparaissent sur le 
réservée aux El F i our Se fabriquer eur une inprisante des 
magnétique F qui a d a spéciaur, HF commercialise le livre 
i î codes barres 
= 0019), 




















ECHANGE DE NENDII 





SUR 41 








* 








avez ceux des rl 

à 19), ce qui 
puissante, et qui 
peut en remplacer une trenta 






Philippe TENAND (PFCFC44) 


HIEUX UTILISER VOS CODES BARRES FO 






JFL  n24 page 16 


03 04 U3 MS 


1338 U 
1368 V 

13188 T 
13128 Q 
13288 %* 
1a508 L,Zz TABLEAU GENERAL DES MISES. 
1a188G R,N,. 
132888 K,Y 


# 


Colonne à cheval °1 colonne 1+2 
°2 colonne 2+3 

Colonne °1-2 ou°3 Se TS NES 

Manque esse. ä 

Noir 

N°3 

N°4 

Pair 

Carré 

Rouge 

Impair 

Transversale pleine 

Nyplein n° set ss s 

A cheval sur 2° © 

Passe ….... 

Sixain 6° ne. 

Douzaine à cheval °1 124 ... 

°2 13à36 . 
Douzaine °n (1-2 ou 3) 


N MME<OHNTDON OZxXEH 





MONACO 









































Ce programme remplace: l'appareil de la roulette, 
le bille d'ivoire,le tableau des mises, deux croupiers, 
un bout de table, jusqu'à cinq PONTES avec la tenue de 
leur CAVE et le hasard par dessus le marché,(le chef de 
table c'est vous) 


Lancement du programme par"l": pour l'initialisation 
des mémoires et le chargement des caves après l'appel 
de chaque Re 9 (indiquer l'avoir du premier 
joueur R/S), "B ?"...ETC. 

AFFICHAGE: MESDAMES...MESSIEURS...FAITES VOS JEUX... 
Entrer les jeux de chaque client en appelant leur compte 
respectif,par "A","p","O","D"M,"E" (en mode USER). 

AFFICHAGE: "CHOIX DU JEU". 

Le tableau des mises comporte 52 cases et permet d'in- 
nombrables combinaisons,ordonnées par 16 symboles de 
KàZ(voir tableau)R/S. 

AFFICHAGE: "nnèi= MISE" permet d'entrer la valeur de 
la mise et précise les limites de celle-ci,R/S. 

Si les pièces posées sont plus élevées que la réserve 
du joueur,la cave du ponte est affichée et la mise re- 
-demandée ,R/S. 

AFFICHAGE: "QUEL NO ?" 

Pour les chances simples: "R"'=rouge ,"N"enoir,"S"=impair 
“P'=pair,"W'-passe ,"M"-manque ,il n'y a pas lieu de 
préciser un N°,par contre pour les chances multiples 

11 faut indiquer à la demande "NO ?"le premier nombre 
de la série jouée ,permettant de définir le jeu. 
EX:(U)NO ? 3 R/S. ou (T)...28 R/S,pour la transversale 
28 / 29 / 30 . ou(L)...1 signifiant la première colonne 
soit: 1/4/7/10/13/16/19/22/25/28/31 et 34 R/S. 

LES JEUX AVEC LE ZERO seront entrés de différentes 

façons: 

POUR le $ seul par U puis ÿ,R/S. 

Pour le # avec 1,2, ou 3 par "V" puis # ,et 1,2, ou 3 R/S 
Pour le ÿ,1,2, avec "T" puis ÿ, R/S. 

Pour le ÿ,2,3, avec "O" puis 3 R/S. 

Pour le ÿ,1,2,3,4, avec "O" puis 4 R/S. 


AFFICHAGE: "FAITES VOS JEUX" s 
Si toutes les mises sont enregistrées XEQ "F" en mode 
USER,s4 non entrer les jeux des autres PONTES 


AFFICHAGE: MRIEN,NE VA PLUS": 

Suivi des résultats de la boule ,et des gains ou pertes 
des joueurs,A....R/S,B....R/S, ETC...puis une nouvelle 
partie commence........ 


La sortie du $ arme le drapeau ÿ5 et fait perdre la 
moitié des mises placées sur les chances simples (R,N,ee) 
Au casino la mise serait en prison sur la ligne de la 
case jouée;avec deux possibilités pour le ponte:laisser 
la moitié de sa mise à la banque ou rester en prison 
Jusqu'à la partie suivante et doubler son gain 81 la 
case jouée est gagnante ,pour la pratique la HP prélève 
la 1/2 de la mise. 


Les pas contenant des E,E1,E2,E3. peuvent être changés 
respectivement en: 1,1#,199,1.999. 
MESDAMES,MESSIEURS, 


| . FAITES VOS JEUX, 
FE 24 pese sm RIEN NE VA PLUS. : 


TISSERAND 
42, Av. du Gal de Gaulle 
77500 CHELLES 


VOICI QUELQUES EXEMPLES DE MISES MULTIPLES. 


Les voisins du ÿ: 9 pièces 
2 pièces sur ÿ@23 (0.3. R/S) 
pièce sur 4/7 (V.4.7. R/S) 
pièce sur12/15 (V.12.15. R/S) 
pièce sur 18/21 ee ne 
pièce sur 19/22 (V.19.22, R/S 
pièces sur 25/26/28/29. (Q.25. R/S) 
pièce sur 32/35 (V.32.35. R/S) 


Le tiers du cylindre: 6 pièces, 
1 pièce à cheval sur NES EEE 
(Ven/n,V.n/n, 


Les orphelins au nombre de 8 :1,6,9,14,17,20,31 et 34 
se jouent à cheval avec le 1 à plein ou 

à plein avec 8 pièces. 

Une finale et ses chevaux: 13 pièces, 

EX.: U. 7,17,27, + jeu V. de 4/7 7/8 7/10 17/14 17/16 
17/18 17/20 27/24 27/26 27/30. 


ETC... 


LES VOISINS DU ZERO. 


@ = NOIR, les autres = ROUGE. 
O = marron 


& LES CRPFHELINS. 
& CES 
[J 


LE TIERS DU CYLINDRE, 


énsntarS® 
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EXEMPLE. S JOUEUFS 


nisant sur R:N,2i 
et doubiant leur ai 
chaque fois au 


118 


“19 ROUGE 


8 INPAIR ET MANQUE 


186 134 


ROUGE 

A ET PRSSE 
HOIF 

ET PASSE 
“27 NOIR 


& PAIR ET MANQUE 


"34" ROUGE 
PRIR ET PASSE 
“137 NOIR 


2 JMPAIR ET MANQUE 


"18" ROUGE 
PAIR ET MANQUE 
ROUGE 


8 INPAIR ET MANQUE 


"3" ROUGE 
IMPAIR ET MANQUE 
“117 NOIR 


2 IMPAIR ET MANQUE 


"157 HOIF 


8 INPAIR ET MANQUE 


“ei” ROUGE 


Ne IMPAIR ET PASSE 


"17" NOIR 
INPAIF ET MANQUE 
277 ROUGE 

à ET PI 

ROUGE 

IMPAIR ET P 
"3" ROUGI 
IMPAIR ET MANQUE 
“127 ROUGE 
PAIR ET MANQUE 
“367 ROUGE 
PAIR ET PASSE 
“id” ROUGE 
PAIR ET MANQUE 
“77 ROUGE 
IMPRIF ET MANQUE 
“257 ROUGE 
IMPAIR ET PASSE 
"4" HOIR 
PAIR ET MANQUE 
"24" HOIR 
PAIR ET PASSE 
“157  HOIR 
INPAIR ET MANQUE 
“14* ROUGE 
PAIR ET MANQUE 
"28" NOIR 
PAIR ET PASSE 
"18" NOIR 
PAIR ET MANQUE 
11" NOIR 
IMPAIR ET MANQUE 
“4 NOIR 
PAIR ET MANQUE 





LEL "MONACO 
LEL'HR 
LBL'PI 
LEL'PH 
LEL'< 
LBL'= 
LBL'+ 
LBL'E 
LBL'- 
LBL"/ 
LBL'X 
LBL"+ 
LBL'é 
LEL"+ 
LEL'e 
LBL*? 
LEL'$ 
BL" 
LEL"I 
LBL'E 
LEL"3 
LEL'4 
LBL'S 
LEL'É 
END. 








67:38 12 





BIeLBL “MONACO” 


BZeLEL I 
"tisserand” 
CF 29 FIx 8 
CLRG STO 64 
ASTO 62 “ROUGE 

ASTO 43 “PAIR* ASTO ñ4 
“IMPAIR® ASTO 85 
“HANQUE" ASTO &6 
“PASSE" ASTO 47 

"$ DS JOUEURS* AYIER 
PSE “A ?* PROMFT 

STO 15 “B?" PROMFT 
STO 16 *C ?* PROMFT 
STO 17 “D ?* PROMFT 
STO 18 *E ?* PROMPT 
STO 19 





ABeLEL 26 

“ MESDAMES," AVIEN 37 
RCL 86 9821 + ,211327 
+ FRC STO 88 + INT 
STO @1 X=87? SF 65 


S6+LBL “HP° 

19 x=Y? GTO 22 El 
RCL 81 X=Y? GTO 23 29 
X=Y? GTO 23 CLX El 
4 INT LASTX FRC Ei 
+ + 2 HOD x+87 

GTO 22 





RCL @2 


844LE. 
RCL 67 





87+LBL “PI” 

“ MESSIEURS," AVIEK 
RCL @1 2 MON Kx=e7 
GTG 24 REL 85 STa 09 
GTO “PN” 


JB+LEL 24 
RCL @4 STO 82 


1g1eLEL “PH 

RCL 81 19 KE 
Ke=Y? CTO 25 RCL 
STO 16 STOF GTO 





- AS4LEL C 


SF RCL {7 RCL 27 


STO 27 RIN 
STG 17 STOP 





1434LEL D 

SF 64 RCL 18 RCL 26 
XEG “(7 STO 28 RIK 
STO 1€ STOF 


S2eLBL E 

SF 88 RCL 19 RCL 29 
XEQ "€" STO 29 RDN 
STO 19 STOP 


161eLBL <” 

STO 12 RDK STO 11 
KEG =" RCL 11 RCL 12 
RTH 


169eLBL =" 

AON “CHOIX DU JEU* 
PROMPT AOFF ATOX 75 
— KES INDX KXEQ *+" 
RTH 


188+LBL “+” 
“FAITES VOS JEUX"  AVIER 
RTH 


184eLBL 18 

35 STO 14 38 XEE "$” 
KCY? GTO 18 KES “?" 
RCL 81 XEG *4* RTN 


195+LBL 82 
196eLEL 12 
197eLBL 5 
198+LBL 85 
199eL8L 87 


288+LBL 03 
STO 28 FE FS2 45 -,S 
STO 14 


2864LEL d 

E3 XEG “#$" x<v? 
GTO d OFS? 85 GT “+” 
RCL 28 GTO IND x 


2154LEL 87 
RCL 83 RCL 66 
RTH 


228+LBL 83 
RCL 82 RCL 88 
RTK 





225eLBL 85 
RCL 84 RCL 83 
RTH 


238eLBL 82 
RCL 85 RCL 89 
RTH 


235+LBL 62 
RCL 86 RCL 18 
RTH 


248eL8L 12 
RCL 87 RCL 18 
RTK 

245eLBL 15 


2464LBL 81 
STO 26 2 STO 14 
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258eLBL "C" 

SB6 KEG “#7 KEY? 
GTO *E" RCL 28 
GTO THE & 


2574LEL 81 
REL @1 3 MOD XEO “7 
3 MOD XEG “4 RTN 


2664L6L 
RL 1 
INT E 
EG “4” 


LEL ii 
STû 


281+LEi * 

68 KES 

GTO *-" REG 
REG "2" K=v7 
RON KEG “<" 


294+LEL 45 
11 STO 14 


297+LEL */" 
E2 KEG “$" niv? 


GTO */" RCL BI EG 7" 


GT0 +" E + 
GTO +" E + 
ETN 


3i4eLEL 86 
8 STO 14 


3i7eLBL vx" 
128 KEG “#$" X<Y? 
GT0 "x" RCL 81 XES “7 
IE + 
7 GTO “+ & + 
REY? GTO +" E + 
XEG “4” RTH 


338+LEL 13 
S STO 14 


341eLBL “+” 

288 XEQ “$" x<Y? 

GTO “t- KEQ “2” RCL 6! 
KCY? GTO “4 ROY 5 
# KCY? GTO “4” ENTERT 
KEQ “4” RTK 


358+LBL 68 


359+LBL 14 
STO 28 ,5 STO 14 
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363eLEi € 
2884 XEG “#” KCY7 
GTG € RCL 28 GTO IHI x 


376eLEL 8 
KEG °?° 
GTG 31 
2 MOI 


382LEi 7 
RCL &j 
GTO *<* 


38S4LBL 1 
XEG 

GTü 38 
ENTER+ 


3394181 
25 R£L 
GTO 4" 


4548 
#Eg 2 


ABGeLEL 63 


4ffeLEt à 

E2 KEB *$" KV? 
6TO a @ FCL AI 
GTG “+7 3 

GT “+ 


427eLBL 64 
8 ST {4 


128 KEG "4" KEY? 
GO b 4 RCL &1 
GIG “+ E GT 


44ielEL *é” 
K=Y? GTO “+ PEL 13 
ST- 11 RTN 


4474LBL “+ 
RCL 13 RCL 14 + 
ST+ 12 RTH 


453+LBL +" 
CAVE: * ARCL 11 AVIEX 
PSE RTK 


459LBL 2" 
QUEL HO 2" PROMPT RTK 


4636LBL “$" 

CLA ARCLX “Hal= MISE* 
PROMPT X2Y? GTO >" 
STO 13 RCL 11 FIX 2 
XCY2 XEQ “+” FIX @ 
RTH 





4776LF *) 
XOY 6 


ABLE F 

LES JEUX SOKT * 
“HFRITS9" AYVIER PSE 
" RIEN, HE VA PF" 
“HUS* AVIER PSE 


48SeLEL J 

FS2C 85 GTO 21  ” 
ARCL 85 “+ ARCL 8 
ANIER PSE CLA ARCL R3 
“HT ARCL 18 AVIER 
PSE GTOH 


SeseLE 21 

6° PRISON." VIEN 
PSE * N-R-P-S-4-M° 
AVIEN PSE 


SI2eLEL 

FS7 @1 XEG "{" CLX 
KO) 25 ST+15 Ri 
FS2C 81 XEB € 

KEG “2” CLX % 

ST+ 16 RCL 16 

KES e F5? 43 &E 
CLX > 27 ST+ 
RCL 17 

FS? 84 XEO “4” CL 
KO 28 ST+18 REL 
FS2C 84 XEU € 

KEQ *5" CLK KO) 29 
ST+ 19 RCL 19 FS?C 88 
REG e GTO 2€ 


SS4LEL € 
K#@7 RTK * Bi 
AVIER PSE RTK 


S6teLEL “17 
ARCL 15 XEG 6" 
ARCL 25 PROMPT RTK 


S6B+LEL *2" 

“B=" ARCL 16 XEO "6" 
ARCL 26 PROMPT RTH 
S75+LBL *3" 

“C=* ARCL 17 XEG “6” 
ARCL 27 PROMPT RTK 


582eLBL “4” 
ARCL 18 XEQ “6” 
ARCL 28 PROMFT RTH 


589+LBL "5" 
"E=" ARCL 19 XEQ “6” 
ARCL 29 PROMPT RTK 


396+LBL *6* 
"H$ GC=* RTK END 


Michel CLABOT 


Le Se 0 1OS IMPÔTS EN 1985 


Voici un programme digne ,à mon avis, d'être inclus 
dans la catégorie professionnelle avec, bien entendu toutes les 
restrictions d'usage quant à la responsabilité du concepteur en cas 
d'utilisation en situation réelle; à noter néanmoins, que mes colla- 
borateurs et moi-même s'en sommes servis plus d'une centaines de 
fois pour estimation du montant prévisionnel à payer, mais...... 


Ce programme est destiné à calculer le montant de 
l'impôt sur le revenu des personnes physiques, à partir du montant 
imposable ,en ce non compris les plus-values spécifiques à taux fixe, 
ni le IX complémentaire sur les revenus de valeurs et capitaux non 
soumis au prélèvement libératoire, MAIS,en tenant compte : 

-de la situation de famille (calcul automatique du 

nombre de parts,sauf situation spécifique grès parti- 
culière “Ex:veuf,sans enfant majeur ,+75 anS=],5parts) 

-Détermination et ajout de la majoration de 3 %, déduc- 

tion de la minoration de 5%,calcul de la décote sur 
une part, sur une part et demie,exonération pour 
montant d'impôt inférieur à 320 Frs 

-limitation automatique des charges en fonction des 

charges, des personnes à charges, de la situation de 
famille(Ex: calcul de la réduction d'impôt accordée 
pour intérêts des emprunts, limités en montant va- 

riable en fonction de la situation de famille, après 
incidence des ravalements, et de la date d'emprunt) 

-plafonnement de l'effet du quotient familial à 9960/E 

-vérification des données de calcul par mode ‘USER''E' 


Bien entendu, ceux de nos amis qui souhaiteraient 
avoir des précisions complémentaires sur le PRGM, la base fiscale ou 
me signaler d'éventuels BUGS‘, je me tiens à leur disposition. 


COMMENTAIRES ET EXPLICATIONS DE MESSAGES : 


REV. IMP ou RI : revenu imposable M.C.D.V.:marié,célib,divorcé, veuf 

Nb ENF: nombre d'enfants à charge d? O/N: réduction d'impôt oui/no 

RAV: ravalement INT EMP: intérêts des emprunts sur habitation 

AV 84 O/N: intérêts des emprunts conclus avant 1984 oui/non 

ECO/EN: économie d'energie (dépenses en) AS VIE:assurance-vie 

REN VIE: rente vie CEA:compte d'épargne en actions 

CPTA: déduction des frais de comptable sous certaines conditions 

ENF MAJ: avez-vous -eu des enfants vous permettant + 1/2 part oui/non 

SF?M=2 /CDV=1 : marié faire 2 r/s sinon faire 1 r/s(sf=situation de 
famille et non pas set flag) 

Nb de PARTS ou NP : nombre de parts à prendre en considération 

(ces trois dernières lignes servent lorsque la situation de famille 

va au delà du nombre d'enfants prévus par le PRGM) (M57V52C6?D6) 


Par convention avec moi-même , à la question O/N? , en l'absence 
de réponse, celle-ci est non(OUl=r/s NON=N°ou autre" 
Après avoir fait r/s à la question d?0/N, pour défilement des réduc- 
tions à prendre en considération, faire r/s pour passer sinon indi 
quer le montant brut sans tenir compte de la limitation pour charge 
de famille, HP le fait elle-même. 
Ci-joint en annexe, à toutes fins utiles, liste imprimante de trois 
calcuk différents. 
Pour un tone à la question O/N, j'utilise synthétique‘ tone7 (sto09 
. a tous, bonne programmation 
N ponoudlomrln cute amuêu enubottaur. michel Clabot T 557 / P 151 
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19.263,28 
A+ 84 O/N? 
468,68 


ECG EN==642,23 
RS, VIE= 
S.623,44 
485,75 


'oeci=2. 768,88 


gec3=i.485,75 
dec4=543,25 
decs=375, 88 
deco=2.888, 88 
I-R=767,77 
HIn=-38 
BU=729F 19,682 


REY. IMF- 
89.886,04 
n.C.D.v 
€ 
Nb ENF= 
bre 
ENF MAJ O/H7 
d? ü/K7 
RAY= 
1.286,68 
RAV== 388,08 
INT. EMWP= 
25.654,84 
R# 84 0/N? 
INT==1.568, 86 
ECO EN= 
2.568,64 
ECO EN==648,84 
AS.YIE= 
6.652,44 
AS.YIE==1. 888,84 
REN.VIE= 
526,4 
REN.VIE==131,54 
CER= 
2.568486 
CER==648, 48 
CPTH= 


I. 
deci=1.868,88 
dec2=644, 86 
dec3=1.888, 883 
dec4=131,58 
dec3=648, 88 
decé=2. 688,88 
I-R=15.115,58 
NIN=-755,78 
BU=14368F 38,047 


REV. IMP= 
221.523,% 

m.C.D.v- 
# 
Nb ENF= 

LIL 
SFR=2 :C=i 

28 
Nb de PARTS= 

6% RUN 
d? ON? 
BU=18090F 19,084 

KEG € 

RI=221.523,95 
SF=AÈ 
K.P=6,58 
InP.8=19.842,54 
I-R=19.842,54 
MIN=-952,13 
MH-18898F 19,64% 








BieiBl “IR 

SIZE? 55 XV? PSIZÆE 
CLX XOF CLST CLRG 
SF 03 31.043 STO 13 
14828 STO 38 13498 
STO 31 18378 STO 32 
29058 STO 33 37348 
STO 34 46928 STO 35 
56770 STO 36 65588 
STO 37 189148 STO 35 
158188 STD 33 177558 
STO 48 281978 STO 41 
228928 STO 42 1 E7 
STO 43 REV, INP” 
REG F STO 28 

"NC .D.V=" TON € 
AOK PROMPT ASTO 21 
AOFF “Nb ENF* XECF 
STO 22 CLA ARCL 21 
FIX @ CF 29 ARCL 22 
ASTO 21 SF 29 FIX 2 
SF 25 EG IND 21 
FC2C 25 
RL 28 RL 23 ; 
ST 25 





- ST0 12 
RCL IND 12 RCL 25 
KC=Y? GTO 15 STD 2 
REL IND 13 RL 25 
Ke=Y? GTD i4 
RL IND 13 STO 26 





S6eLEL 14 

RL 26 RCL IND 12 
85 RCL 12 IRT 
+ S10 24 +* ST+ 27 
RCL NE 13 RCL 
Ke=Y? GTO 15 186 
GT0 13 





185eLBL 15 

RCL 27 RCL23 * 

STO 28 STO 67 FS2C 83 
GTO 84 FS2C @4 KED 86 





115+LBL A 

“d?" XEQ c FS2C 84 
KEQ 85 RCL 23 1 x=v? 
KEO 87 RL 23 1.5 
K=Y? KEO 8 21528 
RCL 28 x<Y? XER 11 
RCL 28 21921 X(=V? 
REG 12 32284 RCL 2€ 
X)Y? KEG 89 328 

RCL 28 XCY? @ STD 28 
GTO 88 





146eLEL @6 

RCL 28 9968 RCL 17 
REL 23 - .5 / + - 
STO 28 STO 87 RCL 18 
XV? KEO 82 RCL 17 
STO 23 RTN 


164+LBL 82 
STO 28 STO 67 RCL 16 
STO 24 RTH 


178+LEL 87 
4EZ RCL28 XV? RIN 
— ST- 28 RTK 


178eLBL 66 


16E2 RCL 28 X3Y? RTK - 


— ST- 28 RTK 


186eLBL 11 
+95 ST+ 28 ST+ 24 RTN 


191LBL 12 
RDN 269E2 X(T x? 
RTK 85 + 1345 XCY 
= 4 + RL 28 YO - 
STC 28 RTK 


283LBL 49 
1.83 STx 26 ST 24 
RTH 


214+L8L 18 
#7 RCLY .25 +# RTN 


228+LBL @4 

REL 22 %-47 GT0 8 

SF @4 CLST STD 27 
31.847 STD 13 RCL 28 
STO 18 RCL STO 17 
RCL 24 STO 16 8! 
1 F$7 63 2 ST 

RCL 28 REL 23 - 

STC 25 GT0 13 








2454LBL 05 

RAY" XEGF K=82 
GTO 81 SE3 15 E2 
RCL 22 + + K2v7 
RCL Ÿ STO 15 .25 +# 
STO 81 XEG à 


2626LEL 81 

“INT.EMP" XEGF X=87 
GTO 81 SE3 15E2 
RCL 22 + + RIL1S - 
AV? RCL Y “AY 84" 
REG c KeY? SF 88 

RCL 2 FS?C 88 .25 
FSC 64 2 + ®INT=" 
ST+ 61 KEQ à 





JP 








n24 page 25 


1E ++ x 
STO 62 KE à 


JRZOLEL 6 2 


394eLBL M3" 
SF 2 


“AS.VIE" KEBF X=07 
610 81 4E3 RCL 22 
1E3 + + KXE0 18 


STO 03 XEB a 396+LEL "V3" 


397eLBL “C4” 
398eLBL “Dé” 
REG 83 4 RTH 


315+LBL 81 
“REN.VIE" XEO F K=87 
GTG 81 FE3 RCL 22 
SE2 * + XEO {6 “Hé 
STO 84 XEB à û 
4BéeLBL V4" 
485eLBL “C5 
“pee 
4,3 RTH 


"CEA" 
GT 81 
F5? 82 
STO 85 


34geLBL Bi 
“CPTR* 
GT0 8! 
STO 6 


3541 


ce 
né 
ya 
ENF MR à 
84 1.5 RTK 


F 
TOHE 6 PROMPT 


3684L8L “He 
SF 62 


378eLBL “Ci” 
37ieL8L “Di” 


REG 43 2 RTN 442LBL d 


“+2 ARCL X AYIER 


375+LBL “Hi” TOHE 4 PSE RTN 


SF 82 


44SLBL E 

"RIT RCL 28 KEG d 
"SF" RCL 21 KES d 
RP RCL 33 XEB à 
RCL 87 “IMP.E* KES d 
CLX STO RS 1.086 
ST9 11 


377181 vi" 
3784LBL *C2" 
379L8L "12" 
KEO 83 2,5 


3834LEL “H2" 
SF @2 
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4ééelBl € 

“dec” RCL 11 FIX @ 
CF 29 AFCL X SF 29 
FIX 2 RCL INPI 11 Xe” 
REG d OST+ 8€ ISG 11 
GTUe RCL 87 ROLE - 
STO 89 “I-R* x<e? 
GTO 88 XEC d RCL 28 
RCL 89 - “MINT K<87 
REC d "MAJ" x)? 

KEC d 


497+LBL 88 

“DU=" RCL 20 FIX @ 

CF 29 RND ARCL X “HF” 
FIX 2 SF 29 RCL 24 
1E2 # AR X Hz 
TONE 8 PROMFT EKI 


JPC 
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HPF71 ASSEMBLEUR/FORTH 


Jean-Jacques DHENIN 


Michel MARTINET 
Fierre DAVID 
Jean-Fierre BONDU 


Michel MARTINET Le tre “Hardware 





san—-dacques 
ques MOREAU 


BOURSQULON/DAVIT 


HP71 BASIC 


Michel WEIL Choc 

Jean-Claude FOURES LOTO 

Jean-Claude FOURES JEUX 

Frédéric BARNAUD Méthode de Romberg 
Michel WEIL Listage de catalogue 


Serge VAUDENAY Mal de mer, moi 7 Jamais ! 
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JPC 


alisé pour 

anon) {Voir 

un fichier LEY persettan 
siaplement, 


Les nons ons parlent d'eux-sèse, 


nous vous }aisson s lire: 
C0 


en tiebres. 


un support 


et le 


BUT 
Rendre non valides un ou plusieurs fichiers Lex 


en les transforsant en un fichier de type 
nouveau, et reconfigurer le systèee pour que Ces 


JPC  n24 page sû 


soient supprimés 
"BFC" contient les 
adresses et ID/Tokens de tous les Le: se 
trouvent dans le système: voir l'article de 
Fierre DAVID dans dPC/Avril. Nous n'avons que à 
nuséros d'ID (SC, SD et 5E) à notre disposition, 
ce qui est peu devant la sultitude des Lex qui 
circulent actueliesent. Avec DRIVELEX (4h!, Doc 
Doc Doc Doc Doo Doc), plus de problène, il est 
d'utiliser un sèse token pour plusieurs 

ou ordres différents en activant ou 

t es fichiers concernés. Enfin, un 

peu de Lex en mnéaoire est plus 


du buffer 


rapide. 


PRINCIPE 


une fois transforsés, ont un numéro de 
255, identifié “D-LEX" par le 


se trouve 
dupiiqués, soit en aéanire, soit sur 


le peuvent à tout instant être 


tutilisables 
ne sont pas 


etre désactivé 


ERREURS 


- Fichiers se trouvant dans une ROM: 

“lilegal Access" 

— DRIVELEX (ou un autre nos si l’on a efectué un 
RENÈME ou un CU “Driver Lex File* 

- Le type de fichier n’est ni un LEX, ni un 
D-LEX: “Invalid File Type” 





ALEORITHAE 


POLL: 

- Le Lex intercepte le poll pFTYPE 

- teste si le fichier en question est de type 255 

- Si oui, on définit le type 255 come étant le 
type D-LEX, et XM=0, 


DISABLE: 

{1 Recherche du fichier 
{-} File not Found) 

{2} ROM, EERON, etc. 
U-> Tlegal Access) 

{31 Teste si ce n’est pas DRIVELEX 
U-3 Driver Lex File} 

(4) Vérification du type de fichier (LEX ou D-LEN) 
U-} Invalid File Type) 

{31 Change le type si c’est un LEX 
{-11) 

{6} Reconfigure le buffer BFC (bLEK) 

Ü) Fin 


ENBBLE: 
U, (2, (3) et (4) de DISABLE 


{81 Change Le type de fichier si D-LEX 
{-> 17) 


16) Reconfigure bLEX pour tenir cospte 
7) Fin 


Routine d'ANALYSE: 

FILPEF avec sortie sur FSPECE si la chaîne 
spécifiée ne correspond pas à un spécificateur de 
fichier valide, eDRIVE 
Routine de DECOMPILATION: 

FiiDCt 


Voilà, je pense ne rien avoir oublié, si ce n’est 
que tous les Lex de aon HP7IB sont désactivés, à 
Pexception de DRIVELEX qui veille sur eux. 


Michel MARTINET (PPC#12, SI682) 
pFTYPE 
FDLEX 
LEX  'DRIVELEX 
POLHND 
TITLE  DRIVELEN-SOURCE 30/03/1985 


ERù 


CON (2) 
CON 2) 


CON i2) 


CON (5) 
NIBHEX 
REL (4) 
REL (4) 
REL (5) 


CON (3) 
REL (5) 
CNIL) 
CON1S) 
REL (9) 
CON{1) 


CON‘) 
NIBASC 
CON 12) 
CON i1) 
NIBASC 
CONi2) 
NIBHEX 
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id 

a 

ai 

êû 

F 
Ux0)+1 
NSGTBL 
POLHND 


{x (TxGi 
DISAB 

15 
(Tx2)-{Tx0) 
ENAEL 


1 


5 
PDISRBLE" 
40 

ii 
FENABLE" 
ai 

1FF 


#22 
WF 


pFTYPE 
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EsDLXS 
» E/DLXp 
POSDi 


Eftype 
# 
E 
Config 


E/DLXG 
RELIS E/DiXp 
6OSUB POSDI 
LC(S) FLEX 
7h À 
GOYES Nxtsta 
BC À 
C=6 À 
E=C-1 B 
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Config 


GOYES 
Di=Di+ 
CDIEX 
K€ 


CONF 
NXTSTA 


eFTiPE 
Wferr 


409876 
455 
#5 
SE 
409358 





QUTELI EBU 40: 





LC(4) (eDRIVE)+(id) 4256 

GOVLNE BSERR E/Dikd GOSBVi FILDC4 
GOVLNE OUTELI 

LC(2) eFACCS 

60C  Mferr 


Di=Dit 6 

RDA OT 

P= 9 

LC(S) oMAINT 

A=â-C À 

ADIEX MAIS OU EST DONC LE CURSEUR ? 

C=A 

A=DATI 

ASE 

GOYES 3 BUT 

CDIEX 

DI=Di+ ï  Persettre à tout instant de connaître la position 

BOTG N du curseur à l'affichage, 

Sortie P= ï 
E=RÔ î UTILISATION 
Disc i 
Di=Di+ À n'iaporte quel sosent, appuyer sur [VIEN] en 
A=û soie User. Tant que la touche est appuyée, 
A=DATI l'affichage indique la position du curseur, 
RIN La position varie entre ! et 96. 


QUTBYT EQU  #O2CEB 

FILEF U  #03E9C PRINCIPE 
RESPTR 
FSFECe 
tLITRL 
QUTENS 





Intercepter le Poll pEYDF (appui sur une touche), 
te, si la touche est [VIENS et si l'on est 
ide user, afficher la position du curseur 
tant qu'une touche est appuyée. 





E/bLäp GOSBVL FILEP 

GONC Fspece 

7 f 1 Voila, Je listing figure ci-dessous, Il est 
YES Resptr 1 cossenté, et je vous engage vivesent à l'étudier: 

LCU2) tLITRE il est relativesent sisple, 

GOSBVL OUTBYT Le plus, il est (à son avis) utile. Pas toujours 

&=C BE peut-être, mais souvent. 

P=C 15 

BOVLNE OUTENS 








A Bientôt 
Fspece GOVLNS FSPECe Pierre DAVID (PPC#37,S16#1) 


Resptr GOVLNE RESPTR 
LEX  *CURLEX 
FILDCS EU 405759 1 45e 
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SFi 


VIEND! 


HXDCK 


WIPOUT 


KkCVIEN 


POLHNE 


JFC 


HiSéiC Teste le flag système dont 
le nuséro est dans CB) 

#HS147 Affiche la zone pointée 
par Di (22 caractères) 

HECB4 Conversion Hex-Dec du ndre 
qui est dans CIK] 
Reeplissage avec Ô de 
zone pointée par Di 


Position du curseur: 0.. 
Zone scratch 
(FUNCRO) -2 


#is KeY ReDeFinition Poll 
F7 User flag ( {0 } 
400008 Code de la touche [VIENI 


PKYDF Poil KeY Definit 
B 
POL20 Intercepti 

Ici, la Carry 


Retour au 
action. 


HCVIER 
& 
POLIG Retour si tout 
Î, sais 
car c’est un Fpoll. 


À SFLAG? abiae ki, qu'il 
eaent sauver 
ä 
intercepté 
}  FIUSER 
VL SFLAS7 Tester le flag "User", 


Si désaraé, retour 


Di=(5i BUF Zone de 22 caractères à 


î 


à afficher, 
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ongueur de la 2üne 
{22 octets) 
à resplir avec le code 0 


On ne gardera que CIE] 
pour l'appel à H 
ClBi=position du curseur 
près 1°ap Node DEC et 
résultat dans à: 
AIK1=00..,095 si le curs. 
est en Fbèae pousition 
Curseur devient [1..96] 
Node HEX pour conversion 


décinal-ASCIT, 


À: 60..,09 (quartet de 
poids fort) 

S'il est nul, on ne L'afti 
che pas {P=0 après NIFO] 


Conversion D 1 


Poids faible en deuxièse 


Conversion 


Affichage du buffer pointé 


ORDRE *FKEY" 





TOKEN 34 
ENDTAT 


L'assesbleur que je vous propose ce sois-ci a NXTSTM EOU 40848 
pour but de vous initier à la sanipulation du GTKYCD ÆEGÜ  #08D92 
buffer de touches (à ne pas confondre avec les MOVE*N EOU 401308 
buffers à usage général décrits par Pierre le EGU  +#2F444 
sois dernier). L'ordre “FKEY" pousse joyeusesent EGU 40379) 
tout ce petit sonde qui comsence en #2F443, EQU  +#05495 





En effet, nous avons à notre disposition l’ordre REL(S) FSTd 
PUT, qui force la pression d’une touche. Ceci ! REL{S) FSTp 
perset des ruses superbes: Oprograsser des 
fonctions non prograssables (Ah PPC...). Voir à 
ce sujet le beau petit prograsse de Michel 
“Chain-Lex" paru le sois dernier. 





Seulesent voilà: PUT met la touche en dernier LC{5) KEYBUF 
dans le buffer. On pourrait isaginer une : AT À 
application qui nécessite d'appuyer sur une : C=C+i À 
touche “En Premier”. î C=C+1 À 


Tenez vous bien, acrochez vos ceintures 
Désorsais, vous pouvez ! Grâce à moi, et à eon 
ordre "FÉEY", votre HP71 pourra enfin settre une 
touche en prenier dans le taspon ! 

La syntaxe est exactement la atae que la fonction 
PUT, Exenple, pour mettre "REEP* en premier, il 
suffit de faire: FKEY "fl". Siaple, non ? 





Maintenant, vous n'êtes plus lisités que par 
votre isagination dans votre grande aventure avec 
Titan ! 


de een retourne d’ailleurs vous concocter une 
fonction toute aussi inutile que celle-ci ! F N6 


u plaisir de vous Lire, 


Jean-Pierre BONDU (PPEPC33) 


LEX  *FKEYLEX” LE REGISTRE “HARDWARE STATUS" 
1 #C 

M56 0 

POLL © 

ENTRY FSle Ce registre contient 4 bits: 

CHAR #0 - 

KEY  *FKEY' XM: elternal Module missing 
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ky Bit 
ervice Request 
MF: Module Pullec 


Ces 4 bits sont utilisés par le sicroprocesseur 
pour indiquer l’état du systèse d'e: 
Us sont ais à 1 par le CPU, sais ne peu 
renis à Ô que par p asee. Inversesen 
1 pas les prettre à { directemen 
iser des instructions particulières, 
, FRE, où 5 


HF ais à { par le CPU lorsque celui-ci 
l'opcode "00" (RTNSIN). 


+ mis à { par le CPU à la suite de l'instruction 
SREU?, si un des aodules connectés sur le bus 
desande service {HPIL, RAM, ROM, EERDN, etc). 


5 ais à | par le CPU après l'exécution 
rotation d'un registre vers la droite (rSRC, 
rSk, 5 lorsqu'au moins ! des bits perdus 
ou transféré est différent de 0. Les rotations 
vers la gauche (rSL et rSLE) n’affectent pas 
SE. 


ais à ! 
introduit ou enlevé de la 
+ interrupt 


MANIPULATIONS 


Eg. Hexa 


NIBHEY 820 

NIBHEX 821 

NIBHEX 822 

NIBHEX 825 UM4SE)=0 
NIBHEX 824 SR=Q 

NIBHEX 825 UIM+SR)=0 
NIBHEX 826 {5B+5R)=0 
NIBHEX 827 UIM+SB+4SR) =0 
NIBHEX 825 MP=0 

NIBHEX 829 CIMHNP)=Q 
NIBHEX 824 1SB+NP)=0 
NIBHEX 825 CXMSB+MP}=Q 
NIBHEX 82C {SR+MP)=0 
NIBHEX 82 UXM+SR#NP)=0 
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NIBHE) 
RELI2) 


NIBHEY 
RE: 


NIBHEX 
RELI2) 


NIBHEX 
REL 12) 


NIBREX 


yÿy (60 and Set C) 


PXM=Q 


GOYES yy 


PÉAMSEASR)=0 
SOYES yy 


TISR+MP)=0 


GOYES yy 


PUXKESRAME) 20 
BOYES yy 


PAXB+SR#NP)=0 
GOYES yy 





Si yy égale 0, GOYES 00 devient RINYES. Lorsque 
le test est vrai: carry=l, autresent s'il est 
faux: carry=0, 


Voilà un peu de prograssation synthétique (pas 
vraisent) sur HP71B, J'espère que tout va bien à 
Paris, et que TITAN ne vous donne pas trop sal à 
la téte. Bon, à plus tard: nous arrivons aux 
Seychelles, 


Michel MARTINET (PPC#12,SIEH2) 


BIN  *STRIN 

CHAIN -1 
BF2DSP EQU  #OC0E 
ENDEIN EQU  #(764E 


CLRHST 
P= 0 
LCU 1 
CSRB 
NIBHEX 830 
REL(2) ER 
GOSUB POP 
NIBASC *EQL° 
NIBHEX FF 
ERÿ GOSUR POP 


C=RSTK 
Di 


BOVLNE 


GRAPHISMES SUR HP-71E 


Le 71 est un excellent ordinateur, sais il avait 
jusqu'ici 2 défauts isportants: son prix, et un 


écran moncligne, qui était par ailleurs fort 
difficile à sanipuler. Le présent LEX se propose 
de remédier à ce dernier défaut. 1] comporte, 
outre 3 fonctions et 1 ordre, un POLL dont nous 
verrons le principe ultérieurement. 


CONTRAST renvoie la valeur du contraste, valeur 
definie cosse indiqué dans le manuel 
d'utilisation. 


INVERSE est un ordre réalisant l’inverion vidéo 
de l’afficheur. 


INVS à le aëse role (il faut taper GDISF 
INVS(BDISPS)), mais si cette fonction est noins 
rapide que l'ordre précédensent décrit, elle se 
révèle d'une utilisation plus souple. Ainsi, pour 
inverser les seules dix premières colonnes de 
l'afficheur, il suffit de taper: 

GDISP INVSIBDISPSCI,10))&6DISPSI 11) . 


PRINT est une fonction plus intéressante, Sa 
syntaxe est Ja suivante: PAINTIS,X,Y) . Elle a 
pour but d’alluser, si 5 est non nul, ou 
d'éteindre, si S est nul, un point de l’afficheur 
du 71, point specifié par ses coordonnées X et Y, 
l'origine étant en haut à gauche {X varie de 0 à 
131; YŸ de Ô à 7), PAINT n'aura aucune action si 
X et Y n’appartiennent pas aux intervalles 
[9,1311 et [0,7]. Gui plus est, PAINT permet de 
savoir si Je point dont on a redéfini l’état 
était allusé ou éteint, ce qui s'avère 
particulièresent utile lors de la réalisation de 
certains jeux (IF PAINT(I,X,Y) THEN DISP “Votre 
fusée est détruite" & END ELSE GOTO xxxx ). 


Le POLL qui est integré dans le LEX, sais que 
vous pouvez sodifier à votre convenance, n’a pour 
unique but que de vous ecntrer coment redéfinir 
les touches du clavier de votre 71, sans passer 
en aode USER, ce qui se révèle, lors de certaines 
utilisations être un avantage indéniable. Je vous 
laisse aaintenant étudier le LEX et se tient à 
votre disposition pour tout renseignesent 
supplémentaire Appeler Jean-Jacques au: 
887-33-04 après 19h). 


Jean-Jacques NOREAU 





GRAPHISMES EN FORTE 


Voici le act "DRAN”, qui est une primitive FORTH. 
Le principe de ce mot est le maêse que celui 
utlisé pour la fonction PAINT décrite ci-dessus. 


Les parasètres sont placés sur La pile dans 
l'ordre ide haut en bas): 
SY, 


Dessinez bien, 
Jean-Jacques MOREAL 


FORTH 
WORD ‘DRAN 
C=0 


B 
10 
i 
E 
E 


@ ® rw 
E 
mm 
en 


F0 40 tn 


GOYES EXIT 
AR2EX 

GOTO PC 
E=0 À 
Di=D1+ 10 
DATISC À 
GOTE OUT 
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CARACTERES à LA CHAINE 


J'ai réceenent reçu un courrier 
BOURBQULON. Conre ses problèmes avec 
Forth/hssesbleur ne sont pas les premiers qui se 
sont rapportés, je profite de l'occasion pour 
vous faire profiter de aa réponse, Fuisse-t-elle 
vous aider... 





Cher aonsieur, 


J'ai quelques 
Forth/Assenbleur 
concerne l'assesbleur), 





le 





P7i {surtout en ci 


FORTH: 

Le sot STRING permet de créer une cha 
caractères. 

Comment fait-on pour entrer des caractères 
le chaîne 7 puis pour les lire ? 


ASSEMBLEUR: 

La aanuel dit d'entrer le progranne à asceubier 
dans un fichier, à j’aide de l'éditeur. Pour 
il faut utiliser le act ASSEMBLE, 
* source-file specifier", 

coesent trouve-t-on le spécificateur de 











Avec mes remerciements et 8es 
cordiaux, 


Cher Henri, 


En ce qui concerne l'assesbleur, la réponse est 
vraissesblablesent plus sisple que ce que tu as 
pu imaginer: * source-file specifier est le no 
du fichier à assesbler, le nos du fichier créé 
avec l'éditeur. 








Par exenpie, supposons que tu veuilles assembler 
un fichier nommé ‘TOTD'. Il faudra faire, sous 
Forth " TOTO" ASSENBLE, puis [END LINEI. 
Atten à l'espace entre le guillenet ouvrant 
et la presière lettre du non. 11 n°y a pas besoin 
d'espace entre Jle dernier caractère et le 
guillemet de fin. ‘Si TOT0 est sur cassette ou 
disquette, il suffit de faire * TOTO:TAPE" 
ASSEMBLE. C’est pour cette possibilité qu'il y a 
source-file specifier, et non source-file nage. 

Tu peux dorénavant assesbler les exesples du 
sanuel, où es nosbreux Lex parus dans le 
Journal. Fais attention aux espaces: une 
étiquette doit cossencer en colonne ! où 2, une 
enéronique en colonne 3 au poins. Le aeilleur 
yen est d'utiliser les colonnes 1, 8, 15 et 24 
e indiqué dans je esnuel. C'est l'alignement 
plus lisible, et c'est celui eaployé dans le 
J'espère pouvoir publier, le aois 
rochain, un Lex peraettant d'avoir des 
tabulations. 


























En ce qui concerne le Forth, ton probièae est 
plus général, et plus vaste. Je vais essayer de 
te répondre le aieux possible: 

S crée une variable de type “chaine de 


caractères", comme VARIABLE crée une variable de 
type ’entier*, 











l'on tape 5 STRING AREUH, on crée une en-tête 
ns Je dictionnaire pour une variable de type 
haïne. Cette variable pourra contenir au plus 5 
caractères, 
Pour le aogent, elle ne contient rien. On peut le 
vérifier en tapant . Dans la pile, on a 
d'abord ©, puis un nosbre affreux. Ce dernier est 
l'adresse de ja chaîne. Le (est le nosbre de 
caractères de la chaîne: elle ne contient rien. 








Supposons fasbition légitise), que l'on veuille 
settre quelque chose dans cette chaîne. Far 
exeaple: "Henri, 

de détaille le processus: on va créer une 
constante de type "chaine", et on va ensuite la 
ranger à l'endroit nonsé AREUH. Cette opération 
est cosparable aux nosbres: on crée une constante 
de type “entier”, cette constante est rangée sur 
la pile, puis ensuite est transférée dans la 
variable. Ces deux aécanisaes sont identiques: 
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er" Henri" 
EEND LINE) 
On à deux nosbres dans la p 
caractéristique de la chaine adresse et le 
nosbre de caractères. On peut éventuellerent les 
visualiser en faisant ,5, qui n'abise pas la pile. 
ün fait ensuite AREUH CEND LINE. On a alors 4 
nosbres dans la pile, c'est à dire deux chaînes. 
æaintenant a presière cha 
est fait par S! 


Waintenant, 

Elle est 

05 05 48 85 6E 
fhenr 


Nonbre de caractères actuel 
abre de caractères saxiaun 


Pour pouvoir utiliser 
les sots 
en 


de te propose 
l'inverse de 


a dans la pile: adr nb} 
nb adr) 
{ nb adl 
nb aûr 2tnb} 
nb adr+2{nb} 
nb adr-du-dernier-caractere=adr”} 
{ adr° nb) 
{adr° nb 0) 
adr*) © La boucle est faite nb fois) 
edr° adr’} 
adr* contenu-de-adr°} 


caractère-précédent} 


Et asintenant, nous Sonaes mûrs pour faire un aot 
qui desande une chaine de caractères, puis 
l'affiche à l'envers, 


TUPRI (- 
“ Chaîne" TYPE ( a 
aurait pu le 


‘espère que tu as bien cospris, Forth est 
vraisent splendide, Mais une fois que 


l'assesbleur, il y a de fortes 
plus par Forth que pour 





on de touches 


. prograsmable, utilisable au clavier... 
Fonction INV$ 


Fonction PAINT 


RINT° 
40HDiC 
#OBCBC 


408248 


#HE 
o 
DEFK 

teur à appuy 
8 “kon; nn 
8 


code de ia touche: en AG4) le code utilisé en FORTH; en 
1 Le code uti en acde L 
GOSEVL ASRNS On shifte donc À par 5 fois vers la droite 
LEU2) 68 Est-ce la touche de code utilisateur 68 ? 
AC EB “Non, on continue je test 
GOYES KEY2 
LCI2) 08 “Qui; on charge en © ja Jongeur de la chaine à afficher { en octets } 
EOSUE KADR ppelle une sous-routine 
DATO=C 9 corresponds à un affichage avec parenthèses, 10 avec blanc derrière le 
la chaine à afficher, 1! à un blanc devant...{ct IDS } 
GOSUB PS Peraet de récupérer l'adresse de la chaine à afficher 
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JFC 


Dü=p0+ 2 
LE) 9 
RTN 
t 
6010 0 
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Récupère co Fr chaine à afficher 
La place 


Retaurne à l'appelant 


Charge l'adresse de DEFADR 

Y place la longueur de la chaine à afficher 

SDEFADR+E2 

9 correspond à un affichage avec parenthèses ( voir plus haut } 
Repasse la sain, car parfois il affiche non des parenthèses mais un es- 
pace 

Saut intersédiaire { car le déplacement est trop grand pour être codé 





» IRé 
Ne 
#0005€ 
42E104 
I 
40 

} 4200 
1 
ac 
#E300 


BOVLNE NXTSTH 
BOVLNG OUTELA 
RTNCE 


NIBHEX 0 
CDÜEX 


GOVLNG FNRTN2 
NIBHEX 88835 
CDGEX 

RO=C 

CDIEX 


sur un octet } 

Adresse relative de la " Deccapile routine * de l’ordre IN E 

Idee mais pour la * Parse routine * 

24 le nosbre de colo de l'afficheur 3, celui de gauche, note DDS 
Adresse du début de D 

Le sous pr ne ! inversera donc DDS 

On renouvelle l'opération sur DD2 


Puis DD! 


Fin de l’ordre 

Decospile routine 

Parse routine 

Récupère le ler octet à inverser 
l'inverse 

Le reset à sa place 

Passe à l'octet suivant si il existe 


Sinon rend la sain à l'appelant 
Fonction à { paramètre { alpharumérique } 
Sauvegarde D0 et Df 


-Nor; on l'inverse 
Restaure D0 et Di 


Fin... 

Fonctio sans paranètre 

Sauvegarde. 

Adresse où est stockée la valeur du contraste 
Récupère cette valeur 


Qui est convertie en décisal 
Sauvegarde et fin... 


Fonction à 3 parasètres ( numériques ) 
Sauvegarde... 


JFt 
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L POP2N 


FLTDH 


BVL FLTEH 





LL 

EME 
A=DATO 

C=R2 

&C 

C=0 
LCHEX # 
2-0 E 
GOYES RIGATE 
C=C+C BE 
E=B-1 B 
600 NEXT 


RIGHTE D=C B 


JFC 


CeCth B 
ARSEX 
Eâ BE 
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Se trouve sur la pile, de haut en bas: Ÿ , X, 5 
Récupère Y et X 
Que l’on convertit en déc 





Incrésente Di de manière à récupérer S 


Le convertit en décisal 
Puis le sauvegarde en RS ( Y est en R 
X appartient-il à 





-Nor, on ne fait rien 
Qui; 
Yest-il dans [0,7] ? 


Non 
Qui 
Ke sert presque à rien... 

. ceci est un siaple saut intersédiaire { Voir beaucoup plus haut } 
J'utilise ici une foraule dont je n'ai plus souve Eile pereet, 
connaissant X, de déterainer la colonne écran dans laquelle se trouve le 
point. 





On récupère alors la valeur de cette colonne. 


Puis on réalise un masque 





On stocke à sa place la nouvelle valeur de la coïcnne 
Puis on restaure DO, D1 ... après avoir converti en décieal l’ancienne 
GOSBVL HDFLT valeur du point { sous forsæe R 
ARGEX 
C=RI 
CDIEX 
C=RÔ 
BOVENS FNRTI On expriee alors le résultat... 
E Fin du LEX. 
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CHOC EN RETOUR 


H y à un 5.1.6. louilleuri qui s’est introduit 
parai nous: page 46 du JPC No23, à la ligne -13, 
il faut Lire TRACDC et non TACDC ‘sincèrerent, 
coanent ce Lex pouvait 11 sarcher 7). 


D'autre part, le programme de chainage de Lex 
Michel MARTINET (page 48) ae laisse perplere: 
effet, ce prograsre aarche, mais la ligne 
laisse rêver: on à O=HTD(REVSIPEERS (DTH$(A0,5))) 
et puis ensuite IF © (et non 0!) THEN AG=AG+0 let 
non 0!) +6... 

Le plus terrible est que cela sarche dans les 
deux cas... 


5i) ; 


Le programme INTE (page 51) ne #arche pas lorsque 
la fonction à intégrer est trop nulle (par 
exenpie EXFi-xt:}) (et cela ne changere rien en 


gettant 96 points). 


Pour Ceux qui, 

fébriiité leur gr 

Le HP7L va devenir rentable, plu: 

pour jouer. En quelques semaines, Titan va vous 
faire éconoriser plus que vous ne l’auriez 
isaginé, Attention quand aêse aux piles ! 


Jean Claude FOURES 


page 46 


Four ceux qui ont échappé aux affres que procure 
a progresse "LOTO", je propose maintenant deux 
jeu sisples, qui persettent de Ss’anuser en 
attendant un train par exea, 


le prenier, vous aurez à deviner un nogbre 
se cache entre { et 9. Attention: pas plus de 


Le deuxière consiste à deviner un nosbre entre { 
et 99. Cette fois-ci, votre HP71 va vous aider un 
peu: pour chaque essai, il vous dira si vous avez 
visé trop haut ou trop bas. 


Etant donné un pas h, une estiaation T0{h) de 
l'intégrale I cherchée peut étre obtenue par la 
séthode des Trapézes, 

Si on divise le pas h par 2, 10{h/2) sera plus 
précise et la suite G(TGih/2*n)) pour n 





appartenant à N converge vers I, 


On dénontre que l'on peut obtenir une se 
suite Tith/2*{n-1)} pour laquelle T1{h/ 
une meilleure approxieation de 1 que TOth/2*k), 
avec T1(h/2*k)=T4T0th/2*{k#1))-TO(h/2k)7/ (4-1) 
pour k variant de 0 à n-1, 





Et d'une manière générale, nous avo 
Th DST KIT h/247/ Ep - 1) 
pour k variant de 0 à n-p 





On constitue alors le tableau suivant: 


TO{h) TO(R/2) ... TI  TOUh/2) 
Tlih) Tith/2) Tih/29) 
Tath} 124 





Gin Tih/2) 
Tnéh 


On démontre que Tkthi converge bien plus 
rapidesent vers 1 que la suite T0(h/2°k) 


Le calcul est tersiné lorsque la différence entre 
Ta-dh} et Tnih} est inférieure à une liaite 
La séthode de Ro: de choisir à pr 
la précision. 





LISTAGE DE CATALOGUE 


Chers anis, 


Voici un petit utilitaire pouvant intéresser les 
possesseurs d'iaprisante (par exenple Thinkiet}, 
voulant settre au ‘clair sur du papier les noas 
des différents prograases d’un support de sasse 
donné. 


Utilisation: 
À la question "Quel support ?°, vous tapez: 
1- Soit :MASSME 

si vous ignorez le nos de votre cassette 
2- Soit .noadecassette 





si vous connaissez le label de votre cassette 
{ 


liez pas le . ) 
3- Soit :MAÏN ou :PORT(i) 
pour cataloguer en REX 





Sans les reaarques, le prograsse fait 710 octets. 


Bien aeicalesent, 


Miche! NEIL 


MAL DE MER, MOI 7 JAMAI 


C'est encore avi. 


Voici, pour vous resettre de vos éaotions causées 
par l’adeiration du prograase de aon précédent 
article, un petit jeu qui vous eettra les nerfs à 
vif, et vous occupera jusqu'au prochain JPC, 
Jeaginez-vous à bord d'un navire, dans une ser 
des plus calees, aais où il y a des récifs comse 
dans aucune autre ser. 

lsaginez, de plus (si, faites un effort) que vous 
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faites une course contre la montre pour tr 
cette mer. 


Une fois le prograsse lancé, il entre dans u 
phase d'initialisation (c’est le aoment du jeu le 
dangereux,  profitez-en) qui dure SÙ 
secondes, 
Ensuite, un P vous rappelle à l'ordre, et vous 
devez démarrer, 
Four sangeuvrer, vous avez les quatre flèches de 
déplacesent: les deux flèches horizontal 
accélérer ou ralentir, et £ deu 
verticales pour vous déplacer verticalement. 
Votre navire sera représenté par un point fixe, 
au milieu de l'affichage. Une des difficultés du 
jeu consiste à ne pas perdre ce point. 
une presière partie du jeu, les récifs sont 
dispersés; dans Une d me partie, vous 
er aurez deux fois plus. 
kttention, il peut arriver que ces récifs torrent 
ur ur: il} est possible de le sauter, à grande 
car à deux cases par Cl , on en saute 
dj culer votre élan. 
une troisièse partie, s devrez circuler 
un Jabyri 


record est 2 


JYEZ Sur UNE 


voi ave de mer, vous POUrrE2 YOUS 


Yer en li la suite de cet article: 
prograëse utilise un POKE, 
assurez-vous, celui-ci est inoffensif, si vou 
vous tronpez pas d'adresse... Un POKE *2F441° 7 
sert à interdir un BREAK (touche ATIN), tout en 
laissant la possibilité de faire une 
réinitialisation UNIT 1}. Un POKE *2F441°,°0 
dit La touche ATIN. 
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e, et à bientot, 


Serge VAUDENAY 


poil au d 





Prograare "LOTO" (Tirage aléatoire de 7 nosbres entre 1 et 49) 


10 DESTROY ALL 
20 DIM AU) 

30 ACLI=IP(RNDI49)+1 

40 FOR 1:2 T0 7 % 

50 AC)<IP (RNDI49)+1 

40 XD) 

70 FOR K=1 TD 2 STEP 

80 IF H=AK-L) THEN ACD=IP(RNDA49)#1 
90 NEXT K 

100 NEXT 1 

110 FOR 1=1 10 7 

120 PRINT TAB(4I);AU); 

130 NEXT 1 

140 PRINT 

150 END 


LEGER TES E EN IEENNNNNANSSENNNIETENEA SAR NANRTATTTAANTNTNNANTTNSRASNTTTETNRNNENRNNNENNNNNNNSNANNANSENAENANSNNNNNNNNNS 


Programse "JEU* (deviner le nortre) 


- Jeu: deviner le nosbre 
1016 N={+IP{RND49) 
1026 DISP “Vs avez 5 coups à jouer* 
1030 FOR 1=1 TO 5 
3046 INPUT X 
1050 IF X=N THEN 1090 
1086 DISP Y:" est faux." 
1070 NEXT I 
1080 DISP *C'était";N & END 
1090 DISP "tt CORRECT t4t" 
1100 END 








- deu 2 : deviner le nosbre 
2010 N=1+1P (RND499) 
2020 DISF “Vs avez 7 coups à jouer“ 
2030 FOR I=1 T0 7 
2040 INPUT X 
2050 IF X=N THEN 2100 
2060 IF XCN THEN DISF X;"trop petit." 
2070 1F XN THEN DISP X;"trop granc." 
2080 NEXT I 
2090 DISP "C'était";N & END 
2100 DISP “#34 CORRECT 444" 


SUÉENEES EIRE SNNSNNNNNENNNRSNENANANSE NES ENANANANS SN SRNTNNASANTTTNNTTNNNAANNANSATENNNNNNENARNNNNEANNANNNANNENNNEAENS 
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Programme "ROXBERE" {Intégrat méthode de Ron 


10 OPTION BASE 0 € DESTROY ALL 





8 Ti0,0)=(B-4)4 (FNF (A)+#FA 
80 1/2°N 8 X=A 
90 TO,N)=(FNF (BD +FNF (A) )/2 
100 FOR 1=1 TD 2°N-1 
116 XEX+H € T(O,N)=T (OS ND#FNF CE) 
420 NEXT I 8 T{O,N)=T(O,NitH 
130 FOR F=1 TO N 8 K=N-P 
140 TUP,K}= (4SPAT{P-1,K40)-TCP-1,K))/ (4-13 
130 NE 
160 IF ABSITIN,O)-TIN-1,0))CE THEN 190 
170 IF NC9 THEN N=N+! © GOTO BG 
180 DISP “La precision ne peut etre que de 1E";1+#INT(LOG(ABSETIN,Q)-TEN-1,0)))/L0B(10)) 
190 DISF "Integrale *;TIN,0) 

















SÉTSIEEENSEE NAS ENNNNSNTINR EE SEM ENSNTATRSNNATANRIENSARRNS TA ENTNTENNANNNNNNEENNNENERETENNNNNRARNINENESNNENTENINNNNNIENNET 





Prograsse "LI ilistage de cat 


- Pour ispriser le catalogue de la 











lisations et questions... 
40 RESTORE 16 & OPTION BASE 1 
50 DESTROY B8,C#,D$,5 
60 DIM B$,C$(2),D$(2) @ INTEGER 5,1,9 
7@ INPUT "Quel Support 7°35$ 
- Taper le .label de la cassette ou celui du support 
90 IF B$=":MASGMEN* OR B$[1,11=",." THEN CFLAG 1 ELSE SFLAG 1 
106 CALL PRINTAGE(BS,C$1),D$(),d) 











110 SUB PRINTAGE(BS,C$(),D$13,9) 
— Japression des nons des Prograsmes et calcul des octets engrangés. 
136 PRINT CHR$(14) © PRINT CHR$(27)L"&KIS"; 
140 PRINT TAB(9); "Catalogue de “&UPRC$(B$); 
- En-tête et date 


160 PRINT CHR$(15) © PRINT CHRS(27)8"&k25"; © PRINT TABI23);DATES 
170 PRINT CHRSI27)8"&kOS" € PRINT 
- Retour à une iapression norsale 
190 FOR 1=1 TO INF STEP 2 
200 Céit)=CATS(1,B4)01,243 & C$(2)=CATS(1+1,B8)11,24] 
216 IF FLAG(L) THEN D$(1)=C$(1)018,22) © D$(21=C$(2[18,22] € 6010 250 
- Si le support n’est pas en séaoire de masse 
230 D$(1)=C$(1)021,241 @ D$(2)=C$(2)121,24) 
- Lorsque le support est mésoire de masse 
250 IF D$tf)="" THEN D#(1)="0" 
- Pour abréger les souffrances. 
270 IF D${2)="" THEN D$(2)="0" ! Iden 
280 S=S+VAL (DS (1) )+#VAL (DS (2)) 
- Soase des octets des prograsnes successifs 
306 IF C$i1)="" THEN ?FIN° 
310 PRINT I3C$(1); 8 PRINT TAB(40);1+130$(2) 
320 NEXT I 








330 *FIN': 
340 PRINT "Ce catalogue contient ";S;" octets.” € PRINT 
350 END SUB 


AURRDENSARN TESTS ANNNRNA NANTERRE TRNRRSRTANSENTTNSRANTANANSSNTSNST ARS SENTRARATES RATES RATTTENAENTETTTSRT 


Progranne "RECIFS" (Jeu vidéo...) 


- Slaloos 


20 DATA 129,255,135,181,181,181,181, 









7,185,185,191,129,293,129,191,129,189,133,245,197,221,197 


30 DATA 245,20, 86,60, 129,60, 126,60, 129,189, 189,189, 189,129,0,102,126,102,0,129,129,129,129,129 
40 DATA 129,231 






8 DIN F$L1323,L$15001 € DELAY 0,0 





50 POKE *2F441°,°F" € DESTROY ALL 8 DISF CHR 
60 DISP *  Initialisation’ & RESTORE 

70 L$=CHRS(255) @ FOR A=1 TO 130 8 Lé=L$LCHR } ENETRA 

80 FOR A=133 TO 450 © L$=LSLCHRS 2" IP RNDSB)+(A>300)42*IF ERNDIE 
90 FOR A=1 TD 48 8 READ E @ LS=LSLCHRSIB) @ NEIT À 

100 A=ëb © P=4 @ V=0 @ DISP CHRS(27)8° €? E REEP 8 TO=TIME 

110 ON POSI” #SO#SI#A7HE" ,KEYS)/3+1 GOTO 160,140,150,120, 130 
120 V=V-{V>-3) € GOTD 160 

130 V=V+(VC3) & GOT 160 

140 P=P-{P#0) @ GOTO 160 

150 P=P+(P#7) @ GOTO 160 

160 IF MODCINTINUN(LSEA3I/2"P),2)=0 THEN 180 

170 BEEP 100,5 € GOTD 220 

180 EDISP L$[A-66,A-1ILCHRS (NUMILSTAT) +2*P)BLSTA+1] 

190 A=h+V & IF ACbb THEN A=bE 

200 IF A{300 THEN 110 


L 








1) & NET À 








JPC n74 page b1 





250 DELAY 0,0 

260 AS=KEVNAITS & DISP ‘Encore un parcours ? 
270 ON POS{*ON",KEYNAITS)+1 EDTO 270,280, 300 
280 DISP °Le mere ? ? 

290 ON P 












BÉRSAERIANSNASTNNERNNNSEARRSNNERRREATTERSRTIRETEASTENAEESNNNENERRSRNEANTANENS STRESS TARN SEENASNNTANSNNENANANNENREST 
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